home *** CD-ROM | disk | FTP | other *** search
/ Into That Dark Night / Into That Dark Night.iso / pc / YadVashem / Database / LIBTHEMS.dxr / Internal_10_First Script.ls < prev    next >
Encoding:
Text File  |  2003-03-14  |  794 b   |  33 lines
  1. global gFirstTime, gCursors, gArchiveList, gMovieHyperList, gOurBlack, gCameFrom
  2.  
  3. on prepareMovie
  4.   if voidp(gFirstTime) then
  5.     set gFirstTime to 1
  6.     initInStub()
  7.     InitInMain()
  8.   end if
  9.   initConsts()
  10.   initCommonVars()
  11.   initVars()
  12.   set the mouseDownScript to "catchAllMouseDown"
  13. end
  14.  
  15. on startMovie
  16.   SetCursors(gCursors)
  17.   set gCameFrom to #Library
  18.   repeat with i = 15 to 17
  19.     set the visible of sprite i to 0
  20.   end repeat
  21. end
  22.  
  23. on initVars
  24.   set gCursors to [31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63]
  25.   set gArchiveList to the value of field "gLibList" of castLib "globals"
  26.   set gMovieHyperList to [:]
  27.   if the machineType = 256 then
  28.     set gOurBlack to 255
  29.   else
  30.     set gOurBlack to 0
  31.   end if
  32. end
  33.